home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 6 / The Arsenal Files 6 (Arsenal Computer).ISO / pcboard / remind96.zip / REMIND96.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1996-01-16  |  7KB  |  327 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Date     DATE001
  20.     Date     DATE002
  21.     Date     DATE003
  22.     Date     DATE004
  23.     Date     DATE005
  24.     Date     DATE006
  25.     Date     DATE007
  26.     Date     DATE008
  27.     Date     DATE009
  28.     Date     DATE010
  29.     Date     DATE011
  30.     Date     DATE012
  31.     Date     DATE013
  32.     Date     DATE014
  33.     Date     DATE015
  34.     Date     DATE016
  35.     Date     DATE017
  36.     Date     DATE018
  37.     Date     DATE019
  38.     Date     DATE020
  39.     Date     DATE021
  40.     Date     DATE022
  41.     Date     DATE023
  42.     Date     DATE024
  43.     Date     DATE025
  44.     Date     DATE026
  45.     Date     DATE027
  46.     Date     DATE028
  47.     Date     DATE029
  48.     Date     DATE030
  49.     Date     DATE031
  50.     Date     DATE032
  51.     Date     DATE033
  52.     Date     DATE034
  53.     Date     DATE035
  54.     Date     DATE036
  55.     Integer  INTEGER001
  56.     Integer  INTEGER002
  57.     Integer  INTEGER003
  58.     Integer  INTEGER004
  59.     Integer  INTEGER005
  60.     String   STRING001
  61.  
  62. ;------------------------------------------------------------------------------
  63.  
  64.     DATE001 = MkDate(1996, 1, 1)
  65.     DATE002 = MkDate(1997, 1, 1)
  66.     DATE003 = MkDate(1996, 12, 25)
  67.     INTEGER001 = Date() - DATE001 + 1
  68.     INTEGER002 = DATE002 - Date() - 1
  69.     INTEGER003 = DATE003 - Date() - 1
  70.     DATE004 = MkDate(1996, 1, 15)
  71.     DATE005 = MkDate(1996, 2, 12)
  72.     DATE006 = MkDate(1996, 2, 14)
  73.     DATE007 = MkDate(1996, 2, 19)
  74.     DATE008 = MkDate(1996, 2, 21)
  75.     DATE009 = MkDate(1996, 2, 22)
  76.     DATE010 = MkDate(1996, 2, 26)
  77.     DATE011 = MkDate(1996, 3, 17)
  78.     DATE012 = MkDate(1996, 3, 31)
  79.     DATE013 = MkDate(1996, 4, 4)
  80.     DATE014 = MkDate(1996, 4, 5)
  81.     DATE015 = MkDate(1996, 4, 7)
  82.     DATE016 = MkDate(1996, 4, 8)
  83.     DATE017 = MkDate(1996, 4, 14)
  84.     DATE018 = MkDate(1996, 5, 12)
  85.     DATE019 = MkDate(1996, 5, 20)
  86.     DATE020 = MkDate(1996, 5, 27)
  87.     DATE021 = MkDate(1996, 6, 14)
  88.     DATE022 = MkDate(1996, 6, 16)
  89.     DATE023 = MkDate(1996, 7, 1)
  90.     DATE024 = MkDate(1996, 7, 4)
  91.     DATE025 = MkDate(1996, 9, 2)
  92.     DATE026 = MkDate(1996, 9, 14)
  93.     DATE027 = MkDate(1996, 9, 23)
  94.     DATE028 = MkDate(1996, 10, 14)
  95.     DATE029 = MkDate(1996, 10, 31)
  96.     DATE030 = MkDate(1996, 11, 1)
  97.     DATE031 = MkDate(1996, 11, 5)
  98.     DATE032 = MkDate(1996, 11, 11)
  99.     DATE033 = MkDate(1996, 11, 28)
  100.     DATE034 = MkDate(1996, 12, 6)
  101.     DATE035 = MkDate(1996, 12, 25)
  102.     DATE036 = MkDate(1996, 12, 26)
  103.     Cls
  104.     Newline
  105.     PrintLn "@X09  Copyright(c)1995-1996 Software Kitchen BBS 718-281-0645 remind96.PPE v2.0@X07"
  106.     PrintLn " @X50┌──────────────────────────────────────────────────────────────────────────@X5D┐@X07"
  107.     PrintLn " @X50│@X5F@SYSDATE:8@                                                                  @X5D│@X07"
  108.     PrintLn " @X20@X50│                                                                          @X5D│@X07"
  109.     PrintLn " @X50│                  @X4F  number of days used for the year.   @X5D                  @X5D│@X07"
  110.     PrintLn " @X50│                                                                          @X5D│@X07"
  111.     PrintLn " @X50│                  @X4F  more days till the New Year (1996). @X5D                  @X5D│@X07"
  112.     PrintLn " @X50│                                                                          @X5D│@X07"
  113.     PrintLn " @X50│                  @X4F  more shopping days till Christmas.  @X5D                  @X5D│@X07"
  114.     PrintLn " @X50│                                                                          @X5D│@X07"
  115.     PrintLn " @X50│                                                                          @X5D│@X07"
  116.     PrintLn " @X50│                                                                          @X5D│@X07"
  117.     PrintLn " @X50└@X5D──────────────────────────────────────────────────────────────────────────┘@X07"
  118.     Print ""
  119.     AnsiPos 19, 6
  120.     Print "@X4E"
  121.     Print INTEGER001
  122.     AnsiPos 19, 8
  123.     Print "@X4E"
  124.     Print INTEGER002
  125.     AnsiPos 19, 10
  126.     Print "@X4E"
  127.     Print INTEGER003
  128.     Print "@X07"
  129.     Newlines 5
  130.     If (DATE002 == Date()) Then
  131.         AnsiPos 7, 21
  132.         PrintLn "@X5EHappy New Year!@X07"
  133.     Endif
  134.     If (DATE004 == Date()) Then
  135.         AnsiPos 15, 4
  136.         PrintLn "@X5E Today is Martin's Luther King, Jr. Day. @X07"
  137.     Endif
  138.     If (DATE005 == Date()) Then
  139.         AnsiPos 15, 4
  140.         PrintLn "@X5E Today is Lincoln's Birthday. @X07"
  141.     Endif
  142.     If (DATE006 == Date()) Then
  143.         AnsiPos 15, 4
  144.         PrintLn "@X5E Today is St. Valentine's Day. @X07"
  145.     Endif
  146.     If (DATE007 == Date()) Then
  147.         AnsiPos 15, 4
  148.         PrintLn "@X5E Today is Presidents Day. @X07"
  149.     Endif
  150.     If (DATE008 == Date()) Then
  151.         AnsiPos 15, 4
  152.         PrintLn "@X5E Today is Ash Wednesday. @X07"
  153.     Endif
  154.     If (DATE009 == Date()) Then
  155.         AnsiPos 15, 4
  156.         PrintLn "@X5E Today is Washing's birthday. @X07"
  157.     Endif
  158.     If (DATE010 == Date()) Then
  159.         AnsiPos 15, 4
  160.         PrintLn "@X5E Today is Orthodox Lent begin. @X07"
  161.     Endif
  162.     If (DATE011 == Date()) Then
  163.         AnsiPos 15, 4
  164.         PrintLn "@X5E Today is St. Patrick's day. @X07"
  165.     Endif
  166.     If (DATE012 == Date()) Then
  167.         AnsiPos 15, 4
  168.         PrintLn "@X5E Today is Palm Sunday. @X07"
  169.     Endif
  170.     If (DATE013 == Date()) Then
  171.         AnsiPos 15, 4
  172.         PrintLn "@X5E Today is Passover. @X07"
  173.     Endif
  174.     If (DATE014 == Date()) Then
  175.         AnsiPos 15, 4
  176.         PrintLn "@X5E Today is Good Friday. @X07"
  177.     Endif
  178.     If (DATE015 == Date()) Then
  179.         AnsiPos 15, 4
  180.         PrintLn "@X5E Today is Easter Sunday. @X07"
  181.     Endif
  182.     If (DATE016 == Date()) Then
  183.         AnsiPos 15, 4
  184.         PrintLn "@X5E Today is Easter Monday. @X07"
  185.     Endif
  186.     If (DATE017 == Date()) Then
  187.         AnsiPos 15, 4
  188.         PrintLn "@X5E Today is Orthodox Easter. @X07"
  189.     Endif
  190.     If (DATE018 == Date()) Then
  191.         AnsiPos 15, 4
  192.         PrintLn "@X5E Happy mother's day. @X07"
  193.     Endif
  194.     If (DATE019 == Date()) Then
  195.         AnsiPos 15, 4
  196.         PrintLn "@X5E Today is Victoria Day (Canada). @X07"
  197.     Endif
  198.     If (DATE020 == Date()) Then
  199.         AnsiPos 15, 4
  200.         PrintLn "@X5E Today is Memorial day. @X07"
  201.     Endif
  202.     If (DATE021 == Date()) Then
  203.         AnsiPos 15, 4
  204.         PrintLn "@X5E Today's flag day. @X07"
  205.     Endif
  206.     If (DATE022 == Date()) Then
  207.         AnsiPos 15, 4
  208.         PrintLn "@X5E Happy father's day. @X07"
  209.     Endif
  210.     If (DATE023 == Date()) Then
  211.         AnsiPos 15, 4
  212.         PrintLn "@X5E Today is Canada Day. @X07"
  213.     Endif
  214.     If (DATE024 == Date()) Then
  215.         AnsiPos 15, 4
  216.         PrintLn "@X5E Happy 220th birthday America. @X07"
  217.     Endif
  218.     If (DATE025 == Date()) Then
  219.         AnsiPos 15, 4
  220.         PrintLn "@X5E Today is Labor day. @X07"
  221.     Endif
  222.     If (DATE026 == Date()) Then
  223.         AnsiPos 15, 4
  224.         PrintLn "@X5E Happy Rash Hashana. @X07"
  225.     Endif
  226.     If (DATE027 == Date()) Then
  227.         AnsiPos 15, 4
  228.         PrintLn "@X5E Happy Yom Kupper. @X07"
  229.     Endif
  230.     If (DATE028 == Date()) Then
  231.         AnsiPos 15, 4
  232.         PrintLn "@X5E Today is Columbus Day. @X07"
  233.     Endif
  234.     If (DATE029 == Date()) Then
  235.         AnsiPos 15, 4
  236.         PrintLn "@X5E Boo hahaha... Happy Halloween. @X07"
  237.     Endif
  238.     If (DATE030 == Date()) Then
  239.         AnsiPos 15, 4
  240.         PrintLn "@X5E Today is All Saints Day. @X07"
  241.     Endif
  242.     If (DATE031 == Date()) Then
  243.         AnsiPos 15, 4
  244.         PrintLn "@X5E Today is Election day. @X07"
  245.     Endif
  246.     If (DATE032 == Date()) Then
  247.         AnsiPos 15, 4
  248.         PrintLn "@X5E Today is Vetrans day. @X07"
  249.     Endif
  250.     If (DATE033 == Date()) Then
  251.         AnsiPos 15, 4
  252.         PrintLn "@X5E Happy Thanksgiving day. @X07"
  253.     Endif
  254.     If (DATE034 == Date()) Then
  255.         AnsiPos 15, 4
  256.         PrintLn "@X5E Happy Hanukkah. @X07"
  257.     Endif
  258.     If (DATE035 == Date()) Then
  259.         AnsiPos 15, 4
  260.         PrintLn "@X5E Merry Christmas to all. @X07"
  261.     Endif
  262.     If (DATE036 == Date()) Then
  263.         AnsiPos 15, 4
  264.         PrintLn "@X5E Today is Boxing Day (Canada). @X07"
  265.     Endif
  266.     INTEGER004 = 22
  267.     INTEGER005 = Random(INTEGER004) - 1
  268.     STRING001 = ReadLine(PPEPath() + "quote", INTEGER005)
  269.     AnsiPos 15, 12
  270.     Print "@X5A────────═══     Quote of the day     ═══─────────@X07"
  271.     AnsiPos 3, 13
  272.     Print "@X5F"
  273.     Print STRING001
  274.     Newline
  275.     Print "@X07"
  276.     FCloseAll
  277.     Print "@X07"
  278.     End
  279.  
  280. ;------------------------------------------------------------------------------
  281. ;
  282. ; Usage report (before postprocessing)
  283. ;
  284. ; ■ Statements used :
  285. ;
  286. ;    1       End
  287. ;    1       Cls
  288. ;    34      Goto 
  289. ;    42      Let 
  290. ;    13      Print 
  291. ;    47      PrintLn 
  292. ;    34      If 
  293. ;    2       Newline
  294. ;    1       Newlines 
  295. ;    39      AnsiPos 
  296. ;    1       FCloseAll
  297. ;
  298. ;
  299. ; ■ Functions used :
  300. ;
  301. ;    2       +
  302. ;    6       -
  303. ;    34      ==
  304. ;    34      !
  305. ;    1       Random()
  306. ;    37      Date()
  307. ;    1       PPEPath()
  308. ;    1       ReadLine()
  309. ;    36      MkDate()
  310. ;
  311. ;------------------------------------------------------------------------------
  312. ;
  313. ; Analysis flags : No flag
  314. ;
  315. ;------------------------------------------------------------------------------
  316. ;
  317. ; Postprocessing report
  318. ;
  319. ;    0       For/Next
  320. ;    0       While/EndWhile
  321. ;    34      If/Then or If/Then/Else
  322. ;    0       Select Case
  323. ;
  324. ;------------------------------------------------------------------------------
  325. ;                 AEGiS Corp - Break the routines, code against the machines!
  326. ;------------------------------------------------------------------------------
  327.